home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / test8.self < prev    next >
Encoding:
Text File  |  1993-07-13  |  2.4 KB  |  82 lines
  1. " X window --- AAWindow tests. "
  2. "
  3. *
  4. * This should open up a window on the given host (should really prompt, or check
  5. * out the $DISPLAY variable). The window should refresh itself if you run the
  6. * disp wpe line repeatedly.
  7. * 
  8. * test8.self,v 1.6 1993/07/13 21:47:04 richards Exp
  9. *
  10. * test8.self,v
  11. # Revision 1.6  1993/07/13  21:47:04  richards
  12. # July 13 checkin.
  13. #
  14. # Revision 1.5  1993/06/24  21:24:33  richards
  15. # Split drawing out of boites and into light weight views.
  16. #
  17. # Revision 1.4  1993/06/18  21:25:42  richards
  18. # Moved font support into viewManager.
  19. # Starting to add selection stuff into window and boite.
  20. # Boites refer properly back to the polynomial structures.
  21. #
  22. # Revision 1.3  1993/06/03  21:33:16  richards
  23. # Fixed up the redrawing of the subviews. Turned out they were being drawn off the screen
  24. # due to faulty thinking about where the areas really were.
  25. #
  26. # Revision 1.2  1993/06/02  21:17:08  richards
  27. # I am slowly dealing with window redrawing and resizing requests and getting deeper
  28. # into navel and X. The problem is either too many configureNotify requests, or not enough
  29. # of them. Also, there seems to be some kind of problem filing window.self in twice.
  30. #
  31. # Revision 1.1  1993/05/31  15:00:14  richards
  32. # Changed the view to be two views: topView and an equationView. topView is divided up nicely.
  33. #
  34. # Revision 1.1  1993/05/31  00:12:18  richards
  35. # May 30 checkin. Font support is nearly debugged.
  36. # Make use of glue now.
  37. # Added rational (fraction) types.
  38. #
  39. * Revision 1.2  1993/05/30  21:47:01  richards
  40. * Tests include newerX and navel in the tests.
  41. *
  42. # Revision 1.1  1992/08/19  02:02:34  richards
  43. # Initial revision
  44. #
  45. *
  46. *
  47. "
  48.  
  49. _AddSlotsIfAbsent: (| myview. eqnview. foo. bar. fizz. baz. loo. |)
  50.  
  51. viewManager shutdown
  52. pathCache refill
  53. aa views topView topViewInitialise.
  54. myview: aa topView copy
  55. 'copied...' print
  56. 'init...' print
  57. myview debugFlag: true
  58. myview name: 'An Algebra assistant named AA'
  59. 'named...' print
  60. myview realise
  61. 'realised...' print
  62. myview map
  63. 'mapped...' print
  64. myview display flush
  65.  
  66. foo: aa scalar create: '!a!' Boite: aa x11symbols symbolNamed: 'alpha'
  67. bar: aa scalar create: '!b!' Boite: aa x11symbols symbolNamed: 'beta'
  68. loo: aa scalar create: '!i!' Boite: aa x11symbols symbolNamed: 'iota'
  69. fizz: aa scalar create: '!c!' Boite: aa x11symbols symbolNamed: 'gamma'
  70.  
  71. baz: ((foo + fizz) / bar) * fizz 
  72. baz printLine
  73.  
  74. myview masterEquation: baz.
  75. myview stackEquationAt: 1 Put: ((foo * fizz) + loo).
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.